Namespace OliverHine.Weather.Common

    Public Class Null
        Public Shared Function IsNull(ByVal obj As Object) As Boolean
            If obj Is Nothing Then
                Return True
            Else
                If obj.GetType Is GetType(String) Then
                    If obj.ToString = String.Empty Then
                        Return True
                    Else
                        Return False
                    End If
                End If

                Return False
                End If
        End Function

    End Class

End Namespace